home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Xtras / termprog.d64 / spiral (.txt) < prev    next >
Commodore BASIC  |  2009-02-04  |  168b  |  5 lines
  1. 10 PRINT"[147]";:B=1024:FORY=0TO12:F=(24-Y*2)/(39-Y*2)
  2. 20 FORX=YTO39-Y:POKEB+40*Y+X,42:POKEB+40*(25-Y)-X-1,42
  3. 30 POKEB+39-Y+40*INT(Y+(X-Y)*F+.5),42:POKEB+Y+40*INT(Y+(39-X-Y)*F+.5),42:NEXT
  4. 40 NEXT
  5.